home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create4a / frmwon.frm (.txt) < prev    next >
Visual Basic Form  |  1999-10-11  |  2KB  |  66 lines
  1. VERSION 5.00
  2. Begin VB.Form frmwon 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "X is the winner !!!"
  5.    ClientHeight    =   1950
  6.    ClientLeft      =   6120
  7.    ClientTop       =   4005
  8.    ClientWidth     =   3870
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   1950
  11.    ScaleWidth      =   3870
  12.    Begin VB.CommandButton Command2 
  13.       Caption         =   "Give up!!!"
  14.       Height          =   495
  15.       Left            =   2160
  16.       TabIndex        =   2
  17.       Top             =   1200
  18.       Width           =   1335
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "Play again!!!"
  22.       Height          =   495
  23.       Left            =   360
  24.       TabIndex        =   1
  25.       Top             =   1200
  26.       Width           =   1215
  27.    End
  28.    Begin VB.Label Label1 
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "X is the winner!!!"
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   13.5
  34.          Charset         =   0
  35.          Weight          =   700
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       ForeColor       =   &H00FF0000&
  41.       Height          =   495
  42.       Left            =   720
  43.       TabIndex        =   0
  44.       Top             =   120
  45.       Width           =   2415
  46.    End
  47. Attribute VB_Name = "frmwon"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Private Sub Command1_Click()
  53. frmMain.Text1.Text = ""
  54. frmMain.Text2.Text = ""
  55. frmMain.Text3.Text = ""
  56. frmMain.Text4.Text = ""
  57. frmMain.Text5.Text = ""
  58. frmMain.Text6.Text = ""
  59. frmMain.Text7.Text = ""
  60. frmMain.Text8.Text = ""
  61. frmMain.Text9.Text = ""
  62. frmwon.Hide
  63. End Sub
  64. Private Sub Command2_Click()
  65. End Sub
  66.